home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1987 February / 1987-02.d64 / data format-2 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1987-01-01  |  729 b   |  41 lines
  1. 398 rem *         program two         *
  2. 399 rem *     floating point demo     *
  3. 400 dimn$(80)
  4. 410 c1=.5:c2=1:c3=100:pn=1000:nn=-1000
  5. 420 print"[147]printer? (y/n) ";
  6. 430 geta$:ifa$=""then430
  7. 440 de=3:ifa$="y"thende=4
  8. 450 opende,de
  9. 460 print"[147]generating random data #"
  10. 470 forx=1to80
  11. 480 s=rnd(-ti)
  12. 490 v=(nn-pn+c2)*rnd(1)+pn
  13. 500 gosub5000
  14. 510 print""spc(24)x
  15. 520 n$(x)=n$
  16. 530 next
  17. 540 a=1:b=4
  18. 550 fory=1to20
  19. 560 print#de
  20. 570 fori=atob
  21. 580 print#de,spc(9-len(n$(i)))n$(i);
  22. 590 next
  23. 600 a=a+4
  24. 610 b=b+4
  25. 620 next
  26. 630 print#de:closede
  27. 640 printspc(10)"hit a key for more"
  28. 650 getk$:ifk$=""then650
  29. 660 goto420
  30. 4999 rem *** decimal format routine ***
  31. 5000 n$=str$(int(v*c3+c1)/c3)
  32. 5010 lo=len(n$)
  33. 5020 forj=2tolo
  34. 5030 ifmid$(n$,j,1)="."thenfr=lo-j:j=lo
  35. 5040 next
  36. 5050 onfr+c2goto5070,5080,5090
  37. 5060 n$=left$(n$,lo-fr+2):goto5090
  38. 5070 n$=n$+".00":return
  39. 5080 n$=n$+"0"
  40. 5090 fr=0:return
  41.